Komputer for Alle 1999 #9/1999 CD 9 (black).iso/blokwork/Setup.exe/SETUPMN.DLL/0/RCDATA/TRICHTEXTEDITPROPFM/TRICHTEXTEDITPROPFM.txt

Text File | 1998-07-23 | 10.4 KB | 308 lines

object RichTextEditPropFm: TRichTextEditPropFm
  Left = 293
  Top = 230
  BorderIcons = [biSystemMenu]
  BorderStyle = bsToolWindow
  Caption = 'Rich text editor'
  ClientHeight = 273
  ClientWidth = 468
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMn
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBarPn: TPanel
    Left = 0
    Top = 0
    Width = 468
    Height = 32
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object BoldSb: TSpeedButton
      Left = 242
      Top = 4
      Width = 23
      Height = 23
      AllowAllUp = True
      GroupIndex = 10
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777700000000
        7777777770007700077777777000770007777777700077000777777770000000
        7777777770007700077777777000770007777777700077000777777700000000
        7777777777777777777777777777777777777777777777777777}
      OnClick = BoldSbClick
    end
    object ItalicSb: TSpeedButton
      Left = 265
      Top = 4
      Width = 24
      Height = 23
      AllowAllUp = True
      GroupIndex = 11
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777770000007777
        7777777700077777777777777000777777777777770007777777777777700077
        7777777777770007777777777777700077777777777777000777777777777000
        0007777777777777777777777777777777777777777777777777}
      OnClick = ItalicSbClick
    end
    object UnderlineSb: TSpeedButton
      Left = 289
      Top = 4
      Width = 23
      Height = 23
      AllowAllUp = True
      GroupIndex = 12
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777770000000007777777777777777777777777000007
        7777777770077700777777777007770077777777700777007777777770077700
        7777777770077700777777777007770077777777700777007777777700007000
        0777777777777777777777777777777777777777777777777777}
      OnClick = UnderlineSbClick
    end
    object LeftAlignSb: TSpeedButton
      Left = 362
      Top = 4
      Width = 23
      Height = 23
      GroupIndex = 20
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777700000000000777777777777777
        7777770000000077777777777777777777777700000000000777777777777777
        7777770000000077777777777777777777777700000000000777777777777777
        7777770000000077777777777777777777777777777777777777}
      OnClick = LeftAlignSbClick
    end
    object CenterAlignSb: TSpeedButton
      Left = 385
      Top = 4
      Width = 23
      Height = 23
      GroupIndex = 20
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777700000000000777777777777777
        7777777770000077777777777777777777777700000000000777777777777777
        7777777700000007777777777777777777777700000000000777777777777777
        7777777770000077777777777777777777777777777777777777}
      OnClick = CenterAlignSbClick
    end
    object RightAlignSb: TSpeedButton
      Left = 408
      Top = 4
      Width = 23
      Height = 23
      GroupIndex = 20
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777700000000000777777777777777
        7777777770000000077777777777777777777700000000000777777777777777
        7777777770000000077777777777777777777700000000000777777777777777
        7777777770000000077777777777777777777777777777777777}
      OnClick = RightAlignSbClick
    end
    object BulletSb: TSpeedButton
      Left = 438
      Top = 4
      Width = 23
      Height = 23
      AllowAllUp = True
      GroupIndex = 30
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777774447777777777777444770000000077744477777777
        7777777777777777777777777777777777777444777777777777744477000000
        0077744477777777777777777777777777777777777777777777744477777777
        7777744477000000007774447777777777777777777777777777}
      OnClick = BulletSbClick
    end
    object OpenSb: TSpeedButton
      Left = 8
      Top = 4
      Width = 23
      Height = 23
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777777777777777777000000000007777700333333333077770B0333333333
        07770FBF3333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
        77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
        7007777777770777070777777777700077777777777777777777}
      OnClick = OpenSbClick
    end
    object SaveSb: TSpeedButton
      Left = 31
      Top = 4
      Width = 23
      Height = 23
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777770000000000000770330000007703077033000000770307703300000077
        0307703300000000030770333333333333077033000000003307703077777777
        0307703077777777030770307777777703077030777777770307703077777777
        0007703077777777070770000000000000077777777777777777}
      OnClick = SaveSbClick
    end
    object FontNameCb: TComboBox
      Left = 64
      Top = 5
      Width = 117
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      Sorted = True
      TabOrder = 0
      OnChange = FontNameCbChange
      OnKeyPress = FontAndColorNameCbKeyPress
    end
    object FontSizeCb: TComboBox
      Left = 188
      Top = 5
      Width = 45
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      OnClick = FontSizeCbClick
      OnExit = FontSizeCbClick
      OnKeyPress = FontSizeCbKeyPress
    end
    object FontColorCb: TComboBox
      Left = 320
      Top = 5
      Width = 34
      Height = 22
      Style = csOwnerDrawFixed
      DropDownCount = 17
      Font.Color = clWindowText
      Font.Height = -8
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 16
      ParentFont = False
      TabOrder = 2
      OnChange = FontColorCbChange
      OnDrawItem = FontColorCbDrawItem
      OnKeyPress = FontAndColorNameCbKeyPress
    end
  end
  object MainRe: TEPRichEdit
    Left = 8
    Top = 32
    Width = 453
    Height = 201
    HideSelection = False
    HideScrollBars = False
    ScrollBars = ssBoth
    TabOrder = 0
    WantTabs = True
    OnKeyDown = MainReKeyDown
    OnSelectionChange = MainReSelectionChange
    RichTextEx = {
      7B5C727466315C616E73695C64656666305C6465667461623732307B5C666F6E
      7474626C7B5C66305C666E696C204D532053616E732053657269663B7D7B5C66
      315C666E696C5C6663686172736574322053796D626F6C3B7D7B5C66325C6673
      776973735C66707271322053797374656D3B7D7B5C66335C667377697373204D
      532053616E732053657269663B7D7D0D0A7B5C636F6C6F7274626C5C72656430
      5C677265656E305C626C7565303B7D0D0A5C6465666C616E67313033335C7061
      72645C706C61696E5C66335C66733136200D0A5C706172207D0D0A00}
  end
  object OKBt: TButton
    Left = 304
    Top = 244
    Width = 75
    Height = 23
    Caption = 'OK'
    ModalResult = 1
    TabOrder = 2
  end
  object CancelBt: TButton
    Left = 386
    Top = 244
    Width = 75
    Height = 23
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 3
  end
  object OpenDg: TOpenDialog
    DefaultExt = '*.rtf'
    FileEditStyle = fsEdit
    Filter =
      'Rich Text Files (*.RTF)|*.RTF|Text Files (*.TXT)|*.TXT|All Files' +
      ' (*.*)|*.*'
    Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofFileMustExist]
    Left = 12
    Top = 40
  end
  object SaveDg: TSaveDialog
    DefaultExt = '*.rtf'
    FileEditStyle = fsEdit
    Filter =
      'Rich Text Files (*.RTF)|*.RTF|Text Files (*.TXT)|*.TXT|All Files' +
      ' (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofPathMustExist]
    Left = 12
    Top = 72
  end
  object MainMn: TMainMenu
    Left = 4
    Top = 240
    object EditMn: TMenuItem
      Caption = 'Edit'
      ShortCut = 0
      Visible = False
      object BoldMn: TMenuItem
        Caption = 'Bold'
        ShortCut = 16450
        OnClick = BoldMnClick
      end
      object ItalicMn: TMenuItem
        Caption = 'Italic'
        ShortCut = 16457
        OnClick = ItalicMnClick
      end
      object UnderlineMn: TMenuItem
        Caption = 'Underline'
        ShortCut = 16469
        OnClick = UnderlineMnClick
      end
    end
  end
end